home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #051 (1990)(Amiga User Group Deutschland e.V.).adf / ElektrischeSchaltungen / Serienschaltung (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  3KB  |  138 lines
  1.  
  2.  
  3.         SCREEN 2,320,200,3,1
  4.   anfang:      
  5.         WINDOW 2,"Serienschaltung",(0,10)-(297,186),1+2+8,2
  6.         PALETTE 0,0.1,0,0.33      
  7.         PALETTE 1,0.4,0.87,0.1     
  8.         PALETTE 2, 0,0.93,0.87 
  9.         PALETTE 3,1,1,0.13    
  10.         PALETTE 4,1,0.9,0.73   
  11.         PALETTE 5,0.8,0.6,0.45  
  12.         PALETTE 6,0.93,0.2,0   
  13.         PALETTE 7,0.47,0.78,1  
  14.         COLOR 3,6
  15.         
  16.         CIRCLE (38,30),28,1,,,1  
  17.         CIRCLE (20,45),1.5,3     
  18.         CIRCLE (50,50),1.5,3     
  19.         CIRCLE (30,30),1.5,3     
  20.         CIRCLE (40,45),1.5,3     
  21.         CIRCLE (30,15),1.5,3     
  22.         CIRCLE (240,30),20,1     
  23.         CIRCLE (240,65),20,1     
  24.         CIRCLE (240,15),1.5,3    
  25.         CIRCLE (240,45),1.5,3    
  26.         CIRCLE (240,50),1.5,3    
  27.         CIRCLE (240,80),1.5,3    
  28.         CIRCLE (30,156),20,3,,,1    
  29.         CIRCLE (20,150),1.5,3       
  30.         CIRCLE (40,150),1.5,3       
  31.         CIRCLE (20,165),1.5,3       
  32.         CIRCLE (40,165),1.5,3       
  33.         CIRCLE (220,30),1.5,3       
  34.         LINE   (40,45)-(40,150),4   
  35.         LINE   (40,45)-(240,45),4   
  36.         LINE   (50,50)-(240,50),4   
  37.         LINE   (50,50)-(50,165),4   
  38.         LINE   (40,165)-(50,165),4  
  39.         LINE   (20,45)-(20,165),5   
  40.         LINE   (0,45)-(20,45),5     
  41.         LINE   (0,15)-(240,15),7    
  42.         LINE   (240,15)-(265,15),7  
  43.         LINE   (265,15)-(265,80),7  
  44.         LINE   (240,80)-(265,80),7  
  45.         LINE   (0,30)-(220,30),3    
  46.         LINE   (230,20)-(250,40),6  
  47.         LINE   (230,40)-(250,20),6  
  48.         LINE   (230,55)-(250,75),6  
  49.         LINE   (230,75)-(250,55),6  
  50.         LINE   (20,150)-(37,140),6  
  51.         LINE   (20,165)-(37,156),6  
  52.         
  53.         LOCATE 2,1 : PRINT "N" : LOCATE 5,1 :PRINT "PE"
  54.         LOCATE 7,1 : PRINT "L1": LOCATE 18,15 : PRINT "Linke Maustaste"
  55.         LOCATE 20,8 :PRINT "S1"
  56.              
  57.         ON MOUSE GOSUB start         
  58.         MOUSE ON                     
  59.         WHILE INKEY$="" : WEND
  60.         
  61.     start: 
  62.       LINE   (20,150)-(37,150),6     
  63.       GOSUB aus           
  64.     aus:        
  65.       LINE   (20,150)-(37,140),0     
  66.                  
  67.         FOR i=0 TO 20 STEP 0.1
  68.         PSET (i,45),6
  69.         NEXT i
  70.         FOR i=45 TO 150 STEP 0.1
  71.         PSET (20,i),6  
  72.         NEXT i
  73.         FOR y=-0 TO 105 STEP 0.1              
  74.         PSET (40,150-y),6
  75.         NEXT y
  76.         FOR b=40 TO 240 STEP 0.1
  77.         PSET (b,45),6
  78.         NEXT b
  79.         IF b<>240 THEN GOSUB an 
  80.     an: 
  81.         CIRCLE (240,30),20,3
  82.         PAINT  (240,30),3            
  83.  
  84.         '***********************************************************
  85.                      
  86.         ON MOUSE GOSUB startt         
  87.         MOUSE ON                     
  88.         WHILE INKEY$="":WEND
  89.       
  90.     startt:     
  91.   
  92.       LINE   (20,165)-(37,165),6     
  93.       GOSUB aaus           
  94.     aaus:        
  95.       LINE   (20,165)-(37,156),0     
  96.         
  97.         FOR i=150 TO 165 STEP 0.1
  98.         PSET (20,i),6
  99.         NEXT i
  100.                  
  101.         FOR i=37 TO 50 STEP 0.1       
  102.         PSET (i,165),6
  103.         NEXT i
  104.         
  105.         FOR y=-0 TO 115 STEP 0.1               
  106.         PSET (50,165-y),6
  107.         NEXT y
  108.         
  109.         FOR b=50 TO 240 STEP 0.1      
  110.         PSET (b,50),6
  111.         NEXT b
  112.         
  113.         IF b<>240 THEN GOSUB aan 
  114.     aan: 
  115.         x=3
  116.         CIRCLE (240,65),20,x
  117.         PAINT  (240,65),x            
  118.         
  119.         ON MOUSE GOSUB anfang
  120.         MOUSE ON
  121.         
  122.         WHILE INKEY$="" :WEND
  123.         
  124.         
  125.         
  126.         
  127.         
  128.         
  129.         
  130.         
  131.         
  132.         
  133.         
  134.         
  135.         
  136.         
  137.         
  138.